﻿Public Class usrPastis

    Public Sub inicialitza(ByVal ht As Dictionary(Of String, Decimal))

        Dim l1 As DataVisualization.Charting.PieSeries
        l1 = CType(Me.Chart1.Series(0), DataVisualization.Charting.PieSeries)
        l1.ItemsSource = ht


    End Sub

End Class
